(print_error_message): Fix last change.

diff --git a/src/print.c b/src/print.c
index 2ba749aff4498c1184647a7ff217f28836dbfefd..91642afd6512c0fad0cd5217928bd1f745b69506 100644 (file)
--- a/src/print.c
+++ b/src/print.c
@@ -1028,7 +1028,7 @@ print_error_message (data, stream, context, caller)
       Lisp_Object cname = SYMBOL_NAME (caller);
       char *name = alloca (SBYTES (cname));
       bcopy (SDATA (cname), name, SBYTES (cname));
-      message_dolog (name, strlen (name), 0, 0);
+      message_dolog (name, SBYTES (cname), 0, 0);
       message_dolog (": ", 2, 0, 0);
     }